﻿Public Class secAlumno
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnAgregarAlumno_Click(sender As Object, e As EventArgs) Handles btnAgregarAlumno.Click
        Response.Redirect("secAlumno_agregar.aspx")
    End Sub

    Protected Sub btnBuscarAlumno_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBuscarAlumno.Click
        Dim apePaterno, apeMaterno As String
        apePaterno = Me.txtApellidoPaternoBuscar.Text.Trim
        apeMaterno = Me.txtApellidoMaternoBuscar.Text.Trim

        If apePaterno <> "" Or apeMaterno <> "" Then
            Response.Redirect("secAlumno_buscar.aspx?apePat=" & apePaterno & "&apeMat=" & apeMaterno)
        Else
            MsgBox("Debe ingresar criterios de búsqueda.")
        End If
    End Sub
End Class